home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok40.lha / Environment / MPWin.Mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  57 lines
  1. IMPLEMENTATION MODULE MPWin;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    MPWin.Mod
  4.    :Version.    3.3
  5.    :History.    Mar-90
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  ShareWare
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM    IMPORT    ADR, ADDRESS, INLINE;
  14. FROM Arts    IMPORT    Assert, TermProcedure, CurrentLevel;
  15. FROM Intuition     IMPORT    CloseWindow,ActivationFlags,
  16.             ActivationFlagSet, IDCMPFlags, IDCMPFlagSet,
  17.             WindowFlags, WindowFlagSet, ScreenFlags, ScreenFlagSet,
  18.             WindowPtr;
  19. FROM Graphics      IMPORT     RastPortPtr, RastPortFlagSet, RastPortFlags;
  20. FROM Terminal    IMPORT    waitCloseGadget;
  21. FROM IntuiSup    IMPORT     CreateWindow, ActivWindow;
  22. FROM DosSupport    IMPORT    OpenCon, CloseCon;
  23. FROM MPGad    IMPORT    CompGad;
  24.  
  25.  
  26. VAR    MyLevel            : INTEGER;
  27.  
  28.  
  29. PROCEDURE Cleanup;
  30. BEGIN
  31.  IF MyLevel >= CurrentLevel () THEN
  32.   IF win2#NIL THEN  CloseWindow(win2); win2:=NIL END;
  33.   IF fh#NIL THEN CloseCon (fh); fh:=NIL END;
  34.   IF win#NIL THEN  CloseWindow(win); win:=NIL END
  35.  END
  36. END Cleanup;
  37.  
  38.  
  39. BEGIN
  40.  win := NIL;  win2 := NIL;  rp:= NIL;  rp2 := NIL;  fh := NIL;
  41.  MyLevel:=CurrentLevel(); TermProcedure (Cleanup); waitCloseGadget:=FALSE;
  42.  
  43.  winTitle := "       Compile by Mouse --- © 1990 by M.Peuckert       ";
  44.  win := CreateWindow (WinLEFT, WinTOP, WinWIDTH, WinHEIGHT,
  45.      IDCMPFlagSet{closeWindow, gadgetUp, menuPick},
  46.         WindowFlagSet{windowDrag, windowDepth, windowClose, windowActive,
  47.         gimmeZeroZero}, ADR(CompGad), NIL, ADR(winTitle),
  48.         ScreenFlagSet{wbenchScreen});
  49.  Assert(win#NIL,ADR("Kann Fenster nicht öffnen"));
  50.  DWidth := WinWIDTH - win^.minWidth; DHeight := WinHEIGHT - win^.minHeight;
  51.  rp:=win^.rPort;
  52.  
  53.  fh := OpenCon ("CON:50/53/500/80/ MPCompile V3.3 --- Output  :                               ");
  54.  ConPtr := ActivWindow ();
  55.  
  56. END MPWin.Mod
  57.